KOKO KK Ok kk KOK Ok KR OR Ok Ok OR OK OK KOK OK ROR OO OR OK OR KR ROKK 


* x 
* SMUG BYTES i 
* Volume 6, Number 11 * 
x November 1989 k 
* * 
x Subscriptions = $10.00 per year * 
* or free with swap. Send to: x 
* * 
* SINCLAIR MILWAUKEE USERS GROUP > 
x P.O. Box 101, Butler WI 53007 * 
x * 
Wise Se oe poe te ee oe a at ee x 
x x 
* THIS MONTH: * 
* Se 
x — Lotto on the QL x 
w * 
x - Editors Comments Be 
* * 
g — Some Programming Tips 3 
* x 
a = Presidents Message a 
x * 
xX — And Other Great Things sd 
* x 
X If any articles are copied x 
X piease credit SMUG BYTES x 
Fs : 
* NEXT MEETING DATE: 12/66/89 X 
t SIIRA E a EIE. ee pay LNE E pets) Soe LEE) ee $ 
* * 
* Send all contributions by the * 
* 3rd Wednesday of the month to: * 
w * 
K Bill Heberlein * 
x Editor * 
ia SMUG BYTES x 
K 5052 N. 91st Street x 
z Milwaukee WI 53225 

y * 


He AK AO I Ok Ok 


SMUG Bytes 


SKOKIE kK kk OK KK KOK 


LSB OFFICERS 
& WORKING 
MEMBERS 


All Area Codes Are 414 
‘President - Neal Schultz 
X =- 353 4522 
*V. Pres. — W. Heberlein 
* ~ 527 2191 
*Secretary — L. Dreger 
* — 321 0694 
*Treasurer — A. Doneis 
k ~ 344 4694 
*Education — R. Cultice 
X = 542 3591 


¥ ¥ ¥X KEK 


+x tt Ee KE HK KH HK K OK 


x 


ws Librarrans 

TARAA -E. Pawlowski 
1 - 338 0260 

*Book =. D. Nickel 

x 1 - 284 9691 


x — Sub Group Leaders 

KUO = OR Cue ree 

*Meeting Alt. Sundays of the month 

* — 542 3591 

*Games = UN, -SCHULte 

*Meeting Srd Saturday of the month* 

x TAD 

xHardware - G. Kraemer 

*Meet-no set date. Call for info. 

x — 421 0179 

pee - R. Hilsmann 

era Sra Wednesday of month 
= 231 5291 

*Spectrum — R.Hilsmann 

*Meeting 3rd Wednesday of month 

x ="25 1, 5291 


x 


x &* Ke © HN € KE € HB KE KH KE KH KK 


Me Ee. e E ee Ee 


Rk a I IK ak RAO OK KR KA IK RI ok 


November 1989 


EILEEN, 
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(NOTE NEITHER ANY AUTHOR OR SMUG BYTES TAKES ANY RESPONSIBILITY 
FOR ANY HARDWARE MODIFICATIONS TO YOUR EQUIPMENT.) 


Lote g> 


This 


zhe 


lotto program is a conversion of 
one published in an earlier 
edition of this newsletter. This 
program is for the QL and di drives 


sk 


If you don't have or use disk drives 
change the flp2_ to mdv2_ or whatever 
your saving device is. There are some 


minor changes in the program as tne QI 


Wa 


SuperBasic works Slightly differentiy. 
The winning numbers are saved 
put if you change 
you may have a size problem. i 
not checked it out but the strin 
holding the winning numbers is 2496 
5 by 2. It will save a large area. But 
this 


to disk 
this to microdrive 


have 


9 


will only happen after a large 
amount of data has been entered. I 
nave a cutoff to only save what is 
necessary. 
I also had to modify other 


instructions for the QL. 


Program 


eae Tere Cots 


I have A ali tne 
DUT if anyon 


e 
e 
appreciate bei 
c 
l 


operations out 
problem I would 
Pam There are 

like to 
will have 
this program, 


Gere aes am 
i would 

when I 

have 


īa few modif 
make but I 
tne time. 


w 


tA 
LO 


ana = a@ couple of others availabie for 
you at the All you will 
have to da the media you 
would like ta uS copy the 
programS on to. There will not be any 
charge for the programs This lotto 
program is set up for 6 number pick 
with 54 being the top mumber. There is 
no real check to insure no number 
above is entered but everything is 


basied on 54. It can he changed fairly 
Simply but I will help if you need it. 
“See you in Milwaukee" June 1-3, 1990. 


TO 520 


PRINT k;" sheets", "bets",k* 
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x“ SAVE THE HASSLE. 
"unused " computer, peripherals and software. 
- We are in the Business to sell your computer. 
“ SAVE MONEY. buy your computer, 
software at 2nd BYTES. 
* SAVE TIME. have our professional consultants 
assist you in finding the computer and the programs 
for your needs. 
~- We are in the business to help you select an inexpensive 
system. 
~ WARRANTY. 


almost all equipment we sell. 


Y 74-11 SS 


9721 W. Greenfield Avenue West Allis WI 53214 


The new Computer Store 
For Not-So-New 


Computers 


have 2nd BYTES sell your 


peripheral and 
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".kK*6\, "spend $":k*3\\: FOR 1=1 TO bet 
30 IF fl1=1 THEN GO SUB 1260 

40 FOR n=z TO count 

5 LET t=INT (RND*number)+1 

60 IF f11=4 THEN LET a(l,n)=b(t): GO T 
O 80 

70 LET a(l,n)=g(t) 

8@ IF CODE (inky$) >48 THEN LET ps=((CO 
DE (inky$))—-48) *5 


90 FOR x=1 TO n-1: IF a(1l,n)=a(1,x)THE 


N GO TO 50 

100 NEXT x: IF INKEYS=' ' THEN GO TO 6 
90 

110 LET c(a(l,n))=c(a(l,n))+1: NEXT n: 
GO SUB 190: AT 14+1+2,@: PRINT: NEXT 1: 
PAUSE ps: LET k=kt+1i: IF fl=1 THEN GO S 
UB 68@: GO TO 2@ 

120 AT 16,0: PRINT "press 1) for more” 
Me? 2) to copy”\" 3) for menu 
13@ LET inky$="" 

140 LET inky$=INKEYS: IF inkyS='"" THEN 
GO TO 140 


150 IF inky$="1" THEN CLS: GO TO 2@ 
160 IF inky$="2" THEN GO SUB 850 

170 IF inky$="'3'"' THEN GO SUB 1198: GO 
TO 550 

180 GO TO 120 

19@ FOR x=1 TO count-1: 
=a(l,x+i) 

200 IF t>=a(1,3)THEN GO TO 220 

210 LET a(l,jti)=a(l,j): LET j=j-1: IF 
j>=1 THEN GO TO 266 
220 LET a CI jJtLjJ Sts 
EN RETurn 

230 FOR x=1 TO count: PRINT a(l x)” 
3: IF £1=@0 THEN IF p=10 THEN IF kétli T 
HEN LET d¢((k—1) *6)41. x3 =a lx) 

240 NEXT x: IF £1=@ THEN RETurn 

250 GO SUB 45@: AT 14141,34 

260 PRINT " match ";0: IF o>3 THEN GO 


LET j=xs LER t 


NEAT x0 LF £1)53.TH 


SUB 920 

270 IF o>=p THEN LET a$="": FOR x=1 TO 
count: LET a$=a$&(a(i,1))&" "i NEXT x: 
OPEN #11,ser: PRINT #11,k*6;" *",ag;" 
=>(";0;")": IF £11=3 THEN CLOSE #11: R 
ETurn 


280 IF o=3 THEN LET three=threet+tl: AT 
19,@: PRINT "3's=";three 

290 IF o=4 THEN LET four=four+l: AT 19 
,9: PRINT '4's=";four: GO SUB 1080 

300 IF o=5 THEN LET five=fivet+1: AT 19 


»i8: PRINT "5's=";five: GO SUB 1080 
319 IF o=6 THEN LET six=six+1: AT 19,2 
7: PRINT "6's=";six: GO SUB 1080 

320. RETurn 

330 CLS: AT 10,0: PRINT "Enter the num 
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bers which the"\ "computer should pick 
against"\\\\"enter the numbers one at 


a time. Enter zero (@) for r 
andom numbers” 
340 w=2: o=@: RESTORE 520: AT 2,0: FOR 


x=1 TO count 
350 READ a$: 
$;" number (1 to 
b(x): PRINT b(x) 
360 IF £f1=2 THEN IF b(x)=@ THEN GO TO 
340 
370 


AT 19,@: 
"snumber;'"') 


PRINT "enter ";a 
"ss: INPUT 


IF b(x)=0 THEN GO TO 470 


380 AT w,@: o=ot3: IF x=6 THEN w=wtl: 
o=@ 
390 IF fl1=2 AND f11=2 THEN d(1,x)=b(x) 


400 NEXT x 


41@ AT 3,0: PRINT ,,: IF fl=2 OR f11=4 
THEN RETurn 
420 CLS: AT 2,@: PRINT ;: FOR x=1 TO c 


ount: a(1l,x)=b(x): NEXT x 
430 1=1: f1=3: GO SUB 190: AT 18,0: FO 
R x=1 TO 6: PRINT a(i,x)3" |"3 2 NEXT x 


44@ AT 19,0: PRINT ' 
': PRINT "3's=" 
PRINT "4's=";four 


:three;” ": AT 19,9: 


gh Og TP AO Ss PR TENG a O ae seh VCs 


ALT 29: 27s" PRINT ““O%Ss0) eo axe ie AT 25.0 
fl=1: GO TO 2@ 

450 o=@: FOR x=1 TO count: FOR n=1 TO 

count: IF a(l,n)=b(x) THEN o=otl 

460 NEXT n: NEXT x: RETurn 

470 AT 5,0: PRINT : FOR x=1 TO count 

480 b(x)=INT (RND*number)+1i: FOR n=1 T 

O x-1: IF b(x)=b(n) THEN GO TO 480 

490: NEXT n: PRINT b(x);" "3: IF x=6 

THEN PRINT \ 

500 NEXT x: PAUSE 200: IF f11=4 THEN 

RETurn 

510 GO TO 400 

9240: DATA. OLst' 2nd. ord aan 2 oth 


YO E 9 PID OEE op Eh te eee 2 ke 
pee 2 ei 

530 DIM b$(2496,6,2) 

548 DIM d(6@,6) 

550 GO SUB 2080 

560 CLS: AT @,1@: PRINT “LOTTO 


NUMBERS 1 \ (11 & OKO OOK ak ok 


RRERE KR REE RRR AT 3,0: PRINT “press: 


MAN 1) Fors QUICK PICKENS 

2) for MIXED PICKE Siwtor.SySr 
BM. PUCK" 4) for WINNING NUMBER 
SNT 5) TOY ODDS DEMONS 6 


) to ENTER & VIEW PICKS"\" 
CHECK WINNINGS"\" 


7) to 
8) to SAVE & 


LOAD DATA" 

570 inkyg$="" 

580 inky$S=INKEY$(@): IF inky$="" THEN 
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GO TO 58@ 

590 IF inky$="1" THEN GO TO 1010 

600 IF inkyg="2" THEN GO TO 1210 

610 IF inky$="3" THEN GO TO 127@ 

620 IF inky$="4" THEN GO TO 1280 

630 IF inky$="5" THEN GO TO 1490 

640 IF inky$="6" THEN GO TO 1590 

650 IF inky$="7" THEN GO TO 1949 

660 IF inky$="8" THEN GO TO 820 

670 GO TO 58@ 

680 FOR f=2 TO 13: AT f,@: PRINT 
': NEXT f: RETurn 

690 CLS: IF p=3 THEN 

708 OPEN #11,ser 

71@ END IF 

720 aa=0: FOR f=1 TO 54 

730 PRINT f,c(f) 

740 IF p=3 THEN PRINT #11, '#=';f:;:' #o 


f matches=' 

750 aa=aa+1 
760 IF aa=4 THEN aa=@: PRINT #11,\ 
770 NEXT f: PRINT \\\k:" 
bets"\\"four = 

six = ";six 

78@ IF p=3 THEN 
790 PRINT #11,\\\k;"" 
bets"\\"four = 


ELEJE" Jay 


";four\"five = "afiye" 


sheets"\k*6;" 
";four\'five = 


“Six = ";six: CLOSE #11 

80@ END IF 

318 GO SUB 1450: GO To 550 

828 GO SUB 960 

830 GO TO 550 

8540 AT 13,0: PRINT “RANDOMIZING NUMBER 


S5, please wait": RETurn 
350 OPEN #11,ser 

860 FOR 1=1 TO bet 

870 FOR x=1 TO count 

880 PRINT #11,a(1,x);" "; 


890 NEXT x: PRINT #11,\ 
900 NEXT 1 

910 CLOSE #11: RETurn 

920 FOR v=1 TO 5 

930 BEEP 50,50,50,0,8,8,8 
940 NEXT v 

950 RETurn 


960 REMark load or save b$ 

970 CLS: PRINT "Enter 1 to save the w 

inning numbers"\"Enter 2 to load the 

winning numbers" 

980 inky$=INKEY$: IF 

TO 98@ 

99@ IF inky$=1 THEN GO SUB 2190: RETu 

rn 

1000 IF inky$=2 THEN GO SUB 2350: RET 

urn 
November 


inky$=""" THEN GO 


1989 


sheets"\k*6;” 


";five\ 


1@16 k=1: f1l=6: GO 
18: GO TO 20 
1020 GO SUB 840: 


SUB 1020: GO SUB 11 


GO SUB 1030: AT 16.0: 


PRINT, , RETurn 
1038 GO SUB 1100: FOR x=1 TO number 


1640 y=INT (RND*number) +1 

1050 IF g(y)=0 THEN S(y)=xX: GO TO 187@ 
1060 GO TO 1040 

1070 NEXT x: s=1: RETurn 

1080 y=g(number): FOR x=number TO 2 5 
EP -l: G9(X)=g(x-1): NEXT x: G(l)=y: s= 
Sti: IF s=8 THEN GO SUB 1020 ee 


1090 RETurn 

1100 FOR x=1 TO number: 

: RETurn 

1110 AT 17,0: PRINT 

to enter the numbers"\" 


g(x)=0: NEXT x 


Would you like 
generated t 


o the pick list? (y/n)" 

1120 inky$=INKEYŞ: IF inky$=="" THEN G 

O TO 1120 

1130 IF inky$=="y" THEN 

1140 p=10 

1150 ELSE 

1160 p=1 

1170 END IF 

1180 s=9: CLS: RETurn 

1190 IF p=i@ THEN d(((k- 1)*6)+1,1)=0 

1200 RETurn 

1210 CLS: GO SUB 2086 

1220 AT 10,0: PRINT "Enter the number ( 

S) you wish to"\"incorporateinto ak. -p 

icks."\\"Enter zero (@) when finished" 
PRINT \\: FOR z=1 oo 6: INPUT “enter 
number from 1 to 54 e(z): PRINT e( 

Z2);"' ": IF e(z)=@ THEN GO TO 1240 

1230 NEXT Z 

1240 fli=1: IF fl=1 THEN RETurn 

1250 CLS: GO SUB 840: GO SUB 1020: GO 

SUB 1118: f11=1: GO TO 2@ 

1260 FOR x=1 TO z: a(l,x)=e(x): NEXT x 
RETurn 

1270 k=1: count=12: £11=4: CLS: AT 10, 

O: PRINT "Enter 12 system numbers"\"En 

ter zero (@) for random pick": GO SUB 

340: count=6: number=12: GO SUB 111@: 


GO TO 2@ 
1289 CLS: GO SUB 2086 

1290 AT 5,6: PRINT "“press"\\\"1) To en 
ter winning numbers"\\"2) For most win 

ning numbers"\\"3) To view all winning 
numbers"\\"4) Exit to main menu" 

13@0 inkyş$ş="" 

1310 inky$S=INKEYs$: 
TO 1316 
320 IF inky$="i" 
330 IF inky$= 


IF inky$="" THEN GO 


THEN GO TO 1370 
THEN GO TO 1400 
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1346 
1356 


IF inky$="3" THEN GO SUB 1440:CL5 
IF inky$="4" THEN GO TO 566 
1366 GO TO 1290 
1370 CLS: fl=2: AT 16,@: PRINT “Enter 
the winning numbers one at a time."\\" 
Enter zero (@) to start all over if yo 
u have made a mistake": GO SUB 340: GO 
SUB 1466 
1380 FOR n=1 TO count: 
EXT n: IF f£11=2 
1390 GO TO 1288 
1400 CLS: AT 5,@: PRINT 
ing numbers are:"\\: GO SUB 1460: FOR 
n=1 TO number: c(n)=@: NEXT n: z=x-l1: 
FOR 1=1 TO number: AT 7,@: PRINT "chec 
king for “sl FOR n=1 TO Z: eed a TTO 
count: IF b$(n,x)=1 THEN c(l)=c(1)+1 
1410 NEXT x: NEXT n: NEXT 1: ae Wt 
f=@0: FOR x=1 TO 12: FOR n=1 TO number- 
1: IF c(n)>ft THEN f=c(n): z=n 
1420 NEXT n: IF f=6 THEN GO SUB 1450: 
CLS: GO TO 1290 
143@ PRINT Zet = ";f;" 
f=0: NEXT x: GO 
1440 CLS: GO SUB 1460: 
k=@: FOR l=1 TO bet: 
“s: k=k+4: NEXT 1: 
1450 AT 19,0: PRINT "Press key to cont 
inue s PAUSE (<-1): RETurn 
1460 FOR x=1 TO 2496: IF b$(x,1)<=" 
OR b$(x,1)>"99" THEN GO TO 1480 
1470 NEXT x 
1480 FOR n=1 
J ORE PUSH 
1490 CLS: GO SUB 2088: 
“would you like 
/n)"' 
1500 yn$="" 
1510 yn$=INKEYS: 
15190 
1520 IF yn$== 
@ 
153@ CLS: AT 10,@: 


b$(x,n)=b(n): N 
THEN RETurn 


"the most winn 


times" 
SUB 1450; 


c(z2)=0: 
GO TO 1280 
FOR n=1 TO x-1: 
PRINT b$(n,1);" 
PRINT \: NEXT n: 


Oo" 


TO number: c(n)=@: 


AT 10,0: PRINT 
to bend the odds?"\'" (yY 


IF yng$="" THEN GO TO 


THEN fl=1: GO SUB 122 
PRINT “if you wish 
to have a printout of corectlymatched 
numbers, turn on your printer now.” 
Would you also like to have all three 
correctly matched numbers printed out 
(y/n)?" 
1540 yng=""' 
1550 yn$=INKEYS: IF yng="" 
1550 
1560 I 
1570 p 
1580 C 
O 33¢ 
1590 CLS 
1606 AT 15,0: PR 
SMUG Bytes 


THEN GO TO 


GO TO 1588 


INT “ILJ to 


5 


ie) to ADD PICKS "\"S) to VIEW PICKS" 
\"4) to ERASE PICKS"\"5) return to mai 
n menu" 

1610 inky$="" 

1620 inky$=INKEY$: IF inky$="" THEN GO 
TO 1620 

630 IF inky$="1" THEN 1=0: GO TO 1690 
1640 IF inky$="2" THEN GO TO 1780 

1650 IF inky$="3" THEN GO TO 1750 

1660 IF inky$="4" THEN GO TO 1810 

1670 IF inky$="5". THEN GO TO 5508 

1680 GO TO 1590 

1690 CLS: fl=2: f£11=2 

1700 CLS: AT 10,0: PRINT "Enter your n 
umbers one at a time": 1l=1+1: GO SUB 3 
46: da(l+1,1)=@: AT 19,0: PRINT " more 
(y/n)?": ainky$="" 

1710 inky$=INKEY$(@): IF inky$="" THEN 


GO TO 1710 


1720 
1730 
1740 
1750 


FOR n=1 TO count: 


IF inky$=="y" THEN GO TO 1700 


IF inky$=="n" THEN GO TO 1600 
GO TO 1710 
CLS: AT 2,02 PRINT: FOR -x=1 TO 60 


PRINT d(x,n); ataa 


NEXT n: IF d(x+1,1)=0 THEN GO TO 1770 

1760 PRINT \: NEXT x 

1770 GO SUB 1459: GO TO 1600 

1786 FOR x=1 TO 10: IF d(x,1)=@ THEN 1 

=x-1: GO TO 1800 

179@ NEXT x: AT 2,@: PRINT|"list fille 

d, sorry": GO SUB 1450: GO TO 1600 

1800 GO TO 1690 

1810 CLS: FOR 1l=1 TO 1@ 

1826 PRINT "erase ? (y/n)"\ 

1830 FOR x=1 TO count 

1840 IF d(1,x)=6 THEN GO TO 1600 

B50. PRINT d-Cl yx yee 2h; 

1860 NEXT x 

1870 inky$=INKEYS$: IF inky$="" THEN GO 

TO 1870 

1880 IF inky$=="y'" THEN GO SUB’ 1930: G 

O TO 1820 

1890 IF inky$=="n" THEN GO TO 1914 

19060 GO TO 1870 

1910 NEXT 1 

1920 GO SUB 1450: GO TO 1600 

1930 FOR y=1 TO 9: FOR f=1 TO count: d 

(y,fj=ad(yt+t1,£): NEXT £: NEKT y: FOR y= 

1 TO count: €@(10,y)=@: NEXT y: PRINT 
= erased"’\: RETurn 

1940 CLS: AT 10,0: PRINT "Enter winnin 

g numbers": f1l=2: £11=0 

1950 GO SUB 340: fll=z 

1960 GO SUB 1460 

1970 GO SUB 1380 

1986 f£11=3: CLS 

1990 AT 1,0: PRINT "The winning number 
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s have been added to the list of winni 2160 
ng numbers. "\\\'The winning numbers 2176 
are: "\\: FOR x=1 TO count: PRINT b(x) 5 


REMark save program 
DAVE flp2_convert_lotto_@: stop 


2190 REMark 1 will save Winning #'s,. 
fe 2200 q=10: CLS: v=@: PRINT "Saving"; 
2000 NEXT x 2220 OPEN_NEW #7,T1p2 Winner 
2018 PRINT \\"your bets are"\\ 2240 FOR n=1 TO 2496 
2020 FOR f=0 TO 59 STEP 6 2250 IF q>9 THEN PRINT ".";: q=@ 
2030 FOR 1=1 TO bet 2268 q=q+1 
2040 FOR n=1 TO count 2270 IF b$(n,1)<" 1" THEN v=v+1 
2050 IF d(1l+f,n)=® THEN GO TO 2076 2280 IF v>1 THEN n=2496: GO TO 2320 
2660 a(1,n)=d(1+f,n): NEXT n: GO SUB 1 9299 FOR m= 1 TO count 
90: NEXT 1: GO SUB 145@: PRINT \\: NEX 2390 PRINT #7,bD$(m,m): NEXT m 
T oe 2320 NEXT n: close + 7: RETurn 
2070 PRINT "That's all folks": GO SUB 2350 REMark 2 will iocaa winning #'s. 
1450: GO TO 550 2360 =Í JLO PRINT "Loading"; 
2080 fl=0: f11=0: three=9: four=6: fi 2380 IpZz Winners" 
ve=@: Six=@: ps=10@: o=ð: k=l: w=o: z 2400 56 
=1: bet=6: count=6: number=54: DIM A ( PALG RINT " "; q=6 
6,6): DIM b(1Z): DIM c(54): DIM e(6): 


DIM g(54): 1=1: RETurn 

2110 REMark cls: at 10,0: print "(S)av 
ing or (L)oading DATA 77": pause Cass 
if inkey$=="s5" then save flp2 winning 
bin: save flp2_bets_bin: go to 9020 


EMS oft 
Software for the QIL that really works 


We sell real world software that does real work on a QL computer, much of 
which is tax deductible. There are business, financial and technical 
applications. Most operate under one of the PSION programs. 


Use any of these programs even if you're scared to death of ARCHIVE* or 
ABACUS*., Instructions teach what's really needed but otherwise they are 
transparent. All are fully editable for special requirements. 


Prices are from $9.95 for QLUTter, a resident boot utility, to $2850.00 for 
a site license for CAM MASTER, a friendly CAD program for circular cams 
that generates the CNC code to a vertical mill controller. (Get the demo 
first; it's only $9.95 and really shows the power of the QL. 


Expanded and improved versions of TRUST_FUND 1.3, MAILBAG 2.0 and 
QLAND_LORD 1.3 are available for $4.95 with the original medium. There's 
O8Tutor, a flash-card program, and DBProgs with 5 useful Archive utilities. 
We have The_Transfer_V3, for HP compatible laser printing of DTP files and 
a range of other useful, hard-working software for the QL a 


Order TAX-1-QL/89 by November 22 to get a $19.95 early-bird discount. 


PS!ION's PC-FOUR for MS-DOS computers is only $99.95. 
(Ever see Easel output to an HP Plotter?) 


We create much of our Own software but we market software by other 
Programmers. Please call/write for details about our arrangements. 


Send for our catalogue which explains things in detail. 


EMSOFfEt, P.O. Box 8763, Boston MA 02114 (617) 889-0830 
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TS-—-2068/OQL T1Ps 


Here are some tips for the TS2068 that 
SMUG has accumulated through the years 
that we would like to pass on. The 


first ones are for the TS2068 and its 
possible the TS1000, TS51500@ and 
ZX86-81. 


When writing programs be careful when 
changing variables. If you have 
defined a variable and have run the 
job the variable will be there until 
you doa CLEAR. Our computer allows 
variables to hold their values even 
after the variable has been deieted. 
In most computers the variables are 
dropped Tf the program stops 
executing. This means if you change 
from a$ to aa$ a$ will still be there 
in our computer. 


If you want to change the size of a 
dimension you can do a run. But if you 
want to clear the dimension with out 
clearing other variables just 
re-dimension the variable. For example 
DIM a$(5,1@) sets up a dimension of 5 
sets of 10 bytes each. After running 
you have data inthe DIM. Just doa 
DIM a$(5,1@) in the command mode. All 
data will be cleared. If you want to 
Reduce the size without runing th 
program do a DIM a$(%,0), clearing t 
dimension and removing the pena 
extents. Now re-dimension 
mode and you should nave ae. new siz 
available to you. 


If you are using ON ERROR, once you 
have turned it on it stays on. If you 
want to remove it CLEAR the computer 
before deleting the line. Then delete 
the line using the DELETE command 
rather than just typing in the line #. 
If you type the line # the variable 
table will still contatin'the line # 
and the ON ERROR will still execute. 


QL tip. When using the IF beware! The 
shortend version allows for statements 
on the same line as the if. But DO NOT 
use an END IF. If using the long 
version or an ELSE within the IF you 
must use the END IF. When using the 


END IF you CAN NOT have more than 1 
statement on a line. This includes 
having anything on the same line as 


the then or else. 
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KNXRRRHNNMNMMMN MMW Ww Ow 
2 NEW RELEASES FROM 
x#> RMG ENTERPRISES <## 

HERE ARE 2 NEW RELEASES FROM THE 
WRITING TEAM OF JEAN AND BRANSON 
WILCOX. We hope that you will give, 
them a try and help support our 
2068 sortare E erecucere!: 


TAL 


HT 


© 1988 BRANSON WILCOX 


Remember the old dice poker game? 
Here is a great rendition of it for 
you to run on your 2068. 
Introductory priced at: 
ONLY %12. 95plus $2. 


This one ig for all of you TAROT 
card enthusiasts. I really have not 
seen a better program of its type 
for the 2068. It is fun to get 
your readings done by THE AMAZING 
CLIVE from his TAROT cards! 
Also introductory priced at: 
ONLY R12. Q5 plus $2 PH 


RMG ENTERPRI SES 
1419 1/2 7TH STREET 


OREGON CITY, OR 97045 
BBB Bi BB Be Be Be EBB EE EEE EEE EEE EE EEE ERE 
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EEX LLL 


Some Sek Se oe ea l 


I have noticed a few comments in the 
newsletters about not receiving any 
information from the national. Well we 
received the ballot and in October we 
received a post card from the National 
Public Domain library. We have seen 
the Indiana newsletter about Mel being 
sick and having to resign but there 
has not been any official word. I feel 
that the national is a good thing but 
I don't understand why nothing is said 
Dy those in the know. I am sure all of 
us newsletter editors would mention 
any word about the national. The only 
thing is that it must come from an 
officer of SNUG. 


One other thing. We got to thinking 
about membership. If we get a User 
Group membership should each member of 
the group also get a membership? This 
might be what SNUG is looking for. 


Our prices are 
Wide selection of 
AXIOM C. ITOH 


PANASONIC STAR 


8634 W. National Avenue 


MMMM NM VM VV VV VV VV VV VV VV VV 
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GK ENTERPRISES 
Your Computer Supply Source 
No need to wait for a sale. 
low everyday 


printer ribbons 


HK KK KOK KKK ok ok kok ok 


*SMUG SPECIAL* 


ROKK KOK KOKO ok ok kok 


2700 sheets 9 1/2 x 11 20# Microperf 


Wowk OK Kk OK ok OK Ow 


* 546-0111 * 


KOK OK Ok Kk k OK ok Oo 


Comments 


Also Computer Shopper, through the FOG 


user group, is printing user groups in 
the world. The only requirement is 
that you verify you are still there, 


every three months. There address is: 
FOG User Group Listing ; 
P.O. Box 3474 


found two TS user 
haven't heard from 
one I have never 
Here they are, if you are interested: 
N.E. Timex Sinclair User Group 

(NEF TSUG) ¢/. John Kuhn, 1797 King 
Street, Jacksonville FL and 
Fort Worth T/S Users Group 

°/o David Baulch, 4425 Geddes 
Avenue, Fort Worth TX 76107 

new group is: 

Quantum Leap User Group 
“/o Gale Henslee, 4411 
Amarillo TX 79106 


I have groups that 


an a long time ana 
heard from before. 


The 


2nd Avenue, 


i 
| 
i 
| 
| 
i 
i 
| 
i 
i 
H 
i 


EPSON OKIDATA 


AND MANY MORE. 


$23.50 


West Allis WI 53227 


ENAN INEN EN E IS DAN AS ANAK LO DN AS DS BN PS AN AAN BIR IAN FX 
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PRESIDENTS MESSAGE 


The documentation is done and 
ordered boards have been shippec. 
If anyone has ordered and payed for 
a board and has not received it by 
Christmas please contact us. The 
shipping is being done by U.S. mail 
and as we all know sometimes... 


I want to thank Dick and Marty for 
their help in making this project 
work. Dick has been the focal point 
of the project. This includes 
designing the board, making tne 
proto type and keeping track of all 
who are interested in the board 

Marty acted as the technical 
adviser and is building the 
complete boards for sale. Marty 
also did the excellent job on the 
documentation on putting the board 
together. There was some minor heip 
by Bill and Myself. 


G ed G O 
In Otherwords 
The Meeting 


Or 


This was a good meeting with even two 
guests. They were Jay Seal and Nazir 
Pashtoon from the Chicago area. They 
came to order a digitizer board and 
demonstrate the way they use CPM on 
the TS2068 with the Zebra drive 
system. We were happy to see them and 
have their informative talk. Maybe we 
have a speaker and subject for the 
Computer Expo on Sunday June.Z, 1990. 


Marty showed us his digitizer 
documentation. He will include it with 
all the boards being shipped. 


Bill reported on the costs of having T 


shirts printed. Gordon informed us 
that someone has a form for making T 
shirt transfers using the lazer 


printer. He will get costs for the 
next meeting. If that works out we can 
make them to order somewhat. 


‘COMPUTER AND PRINTER REPAIR 


FACTORY AUTHORIZED SERVICE 


Commodore 
Panasonic 
Amiga 
Brother 
NEC 
Samsung 


ə Star Micronics 
e Atari 

® Citizen 

® C.Itoh 

© Silver- Reed 

e Goldstar 


Apple compatibles © IBM compatibles 
@ and sie pu OR brands 


LEOTE 
10953 West Mitchell Street 
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EEE DEDEDE OO EEE 


The Samecelair Mi lwaukee Users 
C SMUG ) 
We are a not-for-profit group devote: 
Oo serving the interests of those who 
own, use, and/or are interested in the 
Timex/Sinclair family of computers 


ch 


is available 
l to non members 
or free with a club membership. A club 
membership is $2 per year for : 
family membership 


t = 
tor only $10 per y 


Editor and contact person is: 
Bill Heberlein (414) 527 2191. 


SMUG maintains a gratis exchange of 
newsletters with approximately 20 Advertising 
Users Groups across the U.S. and runing for six 
Canada. Clubs not sending newsletters Copy may be ch 
for more than 6 months are removed must supply th 
from our mailing list. 786-0460 Ho 
~ Barker Rd. : 
stop Lights<-<-5 

> IN < YA 
> Poi < i Take the i > 
> 4; < Hy 18 & Hy Y À i 
> Oi a < Exit # 297 ----> >--! 
> E Kentucky < Pon to Madison------—-—— > 
> hi Fried < i exyt Morelnd 
> Capital Dr& | #<---Chicken < N--> 3Q@1--> >----- Rd 
> =- | ==- < i 
> Equitable->#i #<--McDonalds < 
> 5 & L. Enter! £ 
> from West i < 
= = < - i 

PILrRST 


SMUG BYTES 

5052 N. 91st Street 
Milwaukee WI 53225 

Address Correction Requested 


The next meeting of SMUG will be held cn: 


Wednesday, December 6,1989 
6pm Set Up 


6:30 Members Demo Location 

7:3@ Business Meeting Equitable Savings and Loan, 
8:30 Lotto Program Demo 145th and Capital Drive, 
19:30 Clean Up Milwaukee Wisconsin 
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